home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / sambar_sysadmin.nasl < prev    next >
Text File  |  2005-03-31  |  2KB  |  80 lines
  1. #
  2. # Copyright 2000 by Hendrik Scholz <hendrik@scholz.net>
  3. #
  4. # Script audit and contributions from Carmichael Security <http://www.carmichaelsecurity.com>
  5. #      Erik Anderson <eanders@carmichaelsecurity.com>
  6. #      Added BugtraqID
  7. #
  8. # Changes by rd : use ereg() insted of ><
  9.  
  10. if(description)
  11. {
  12.  script_id(10416);
  13.  script_bugtraq_id(2255);
  14.  script_version ("$Revision: 1.16 $");
  15.  name["english"] = "Sambar /sysadmin directory 2";
  16.  script_name(english:name["english"]);
  17.  
  18.  desc["english"] = "The Sambar webserver is running.
  19. It provides a web interface for configuration purposes.
  20. The admin user has no password and there are some other default users without
  21. passwords.
  22. Everyone could set the HTTP-Root to c:\ and delete your files!
  23.  
  24. *** this may be a false positive - go to http://the_server/sysadmin/ and
  25. have a look at it by yourself
  26.  
  27. Solution : Change the passwords via the webinterface or use a real webserver
  28.  like Apache. 
  29.  
  30. Risk factor : High";
  31.  
  32.  
  33.  script_description(english:desc["english"]);
  34.  
  35.  summary["english"] = "Sambar webserver installed ?";
  36.  
  37.  script_summary(english:summary["english"]);
  38.  
  39.  script_category(ACT_ATTACK);
  40.  
  41.  
  42.  script_copyright(english:"This script is Copyright (C) 2000 Hendrik Scholz");
  43.  
  44.  family["english"] = "CGI abuses";
  45.  family["francais"] = "Abus de CGI";
  46.  script_family(english:family["english"], francais:family["francais"]);
  47.  
  48.  script_dependencie("find_service.nes", "http_version.nasl");
  49.  script_require_ports("Services/www", 3135);
  50.  script_require_keys("www/sambar");
  51.  
  52.  exit(0);
  53. }
  54.  
  55. #
  56. # The script code starts here
  57.  
  58. include("http_func.inc");
  59. include("misc_func.inc");
  60.  
  61.  
  62. ports = add_port_in_list(list:get_kb_list("Services/www"), port:3135);
  63. foreach port (ports)
  64. {
  65.  data = http_get(item:"/sysadmin/dbms/dbms.htm", port:port);
  66.  soc = http_open_socket(port);
  67.  if(soc)
  68.  {
  69.   send(socket:soc, data:data);
  70.   buf = recv_line(socket:soc, length:4096);
  71.   buf2 = http_recv(socket:soc);
  72.   http_close_socket(soc);
  73.   if(egrep(pattern:"[sS]ambar", string:buf))
  74.   {
  75.   if(ereg(pattern:"^HTTP/[0-9]\.[0-9] 403 ", string:buf))security_warning(port);
  76.   }
  77.  }
  78. }
  79.  
  80.